home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / akcl / kcl.lha / cmpnew / lfun_list.lsp < prev    next >
Text File  |  1987-06-03  |  23KB  |  418 lines
  1. ;;; LFUN_LIST   Database for system functions.
  2. ;;;
  3. ;; (c) Copyright Taiichi Yuasa and Masami Hagiya, 1984.  All rights reserved.
  4. ;; Copying of this file is authorized to users who have executed the true and
  5. ;; proper "License Agreement for Kyoto Common LISP" with SIGLISP.
  6.  
  7. (in-package 'compiler)
  8.  
  9. (defsysfun 'SI:RPLACA-NTHCDR "siLrplaca_nthcdr" nil nil nil nil)
  10. (defsysfun 'SI:LIST-NTH "siLlist_nth" nil nil nil nil)
  11. (defsysfun 'SI:MAKE-PURE-ARRAY "siLmake_pure_array" nil 'array nil nil)
  12. (defsysfun 'SI:MAKE-VECTOR "siLmake_vector" nil 'vector nil nil)
  13. ;(defsysfun 'SI:MAKE-BITVECTOR "siLmake_bitvector" nil 'bit-vector nil nil)
  14. (defsysfun 'AREF "Laref" '(array fixnum fixnum fixnum) nil nil nil)
  15. (defsysfun 'SI:ASET "siLaset" '(array) nil nil nil)
  16. (defsysfun 'ARRAY-ELEMENT-TYPE "Larray_element_type" '(array) nil nil nil)
  17. (defsysfun 'ARRAY-RANK "Larray_rank" '(array) 'fixnum nil nil)
  18. (defsysfun 'ARRAY-DIMENSION "Larray_dimension" '(array fixnum) 'fixnum nil nil)
  19. (defsysfun 'ADJUSTABLE-ARRAY-P "Ladjustable_array_p" '(array) nil nil t)
  20. (defsysfun 'SI:DISPLACED-ARRAY-P "siLdisplaced_array_p" '(array) nil nil t)
  21. (defsysfun 'SVREF "Lsvref" '(simple-vector fixnum) nil nil nil)
  22. (defsysfun 'SI:SVSET "siLsvset" '(simple-vector fixnum t) nil nil nil)
  23. (defsysfun 'FILL-POINTER "Lfill_pointer" '(vector) 'fixnum nil nil)
  24. (defsysfun 'SI:FILL-POINTER-SET "siLfill_pointer_set" '(vector fixnum) 'fixnum nil nil)
  25. (defsysfun 'SI:REPLACE-ARRAY "siLreplace_array" nil nil nil nil)
  26. (defsysfun 'SET "Lset" '(symbol t) nil nil nil)
  27. (defsysfun 'SI:FSET "siLfset" '(symbol t) nil nil nil)
  28. (defsysfun 'MAKUNBOUND "Lmakunbound" '(symbol) nil nil nil)
  29. (defsysfun 'FMAKUNBOUND "Lfmakunbound" '(symbol) nil nil nil)
  30. (defsysfun 'SI:ERROR-SET "siLerror_set" nil nil nil nil)
  31. (defsysfun 'STANDARD-CHAR-P "Lstandard_char_p" '(character) nil nil t)
  32. (defsysfun 'GRAPHIC-CHAR-P "Lgraphic_char_p" '(character) nil nil t)
  33. (defsysfun 'STRING-CHAR-P "Lstring_char_p" '(character) nil nil t)
  34. (defsysfun 'ALPHA-CHAR-P "Lalpha_char_p" '(character) nil nil t)
  35. (defsysfun 'UPPER-CASE-P "Lupper_case_p" '(character) nil nil t)
  36. (defsysfun 'LOWER-CASE-P "Llower_case_p" '(character) nil nil t)
  37. (defsysfun 'BOTH-CASE-P "Lboth_case_p" '(character) nil nil t)
  38. (defsysfun 'DIGIT-CHAR-P "Ldigit_char_p" '(character) nil nil nil)
  39. (defsysfun 'ALPHANUMERICP "Lalphanumericp" '(character) nil nil t)
  40. (defsysfun 'CHAR= "Lchar_eq" '(character character) nil nil t)
  41. (defsysfun 'CHAR/= "Lchar_neq" '(character character) nil nil t)
  42. (defsysfun 'CHAR< "Lchar_l" '(character character) nil nil t)
  43. (defsysfun 'CHAR> "Lchar_g" '(character character) nil nil t)
  44. (defsysfun 'CHAR<= "Lchar_le" '(character character) nil nil t)
  45. (defsysfun 'CHAR>= "Lchar_ge" '(character character) nil nil t)
  46. (defsysfun 'CHAR-EQUAL "Lchar_equal" '(character character) nil nil t)
  47. (defsysfun 'CHAR-NOT-EQUAL "Lchar_not_equal" '(character character) nil nil t)
  48. (defsysfun 'CHAR-LESSP "Lchar_lessp" '(character character) nil nil t)
  49. (defsysfun 'CHAR-GREATERP "Lchar_greaterp" '(character character) nil nil t)
  50. (defsysfun 'CHAR-NOT-GREATERP "Lchar_not_greaterp" '(character character) nil nil t)
  51. (defsysfun 'CHAR-NOT-LESSP "Lchar_not_lessp" '(character character) nil nil t)
  52. (defsysfun 'CHARACTER "Lcharacter" nil 'character nil nil)
  53. (defsysfun 'CHAR-CODE "Lchar_code" '(character) 'fixnum nil nil)
  54. (defsysfun 'CHAR-BITS "Lchar_bits" '(character) 'fixnum nil nil)
  55. (defsysfun 'CHAR-FONT "Lchar_font" '(character) 'fixnum nil nil)
  56. (defsysfun 'CODE-CHAR "Lcode_char" '(fixnum) 'character nil nil)
  57. (defsysfun 'MAKE-CHAR "Lmake_char" '(character fixnum fixnum fixnum) 'character nil nil)
  58. (defsysfun 'CHAR-UPCASE "Lchar_upcase" '(character) 'character nil nil)
  59. (defsysfun 'CHAR-DOWNCASE "Lchar_downcase" '(character) 'character nil nil)
  60. (defsysfun 'DIGIT-CHAR "Ldigit_char" '(fixnum character fixnum) 'character nil nil)
  61. (defsysfun 'CHAR-INT "Lchar_int" '(character) 'fixnum nil nil)
  62. (defsysfun 'INT-CHAR "Lint_char" '(fixnum) 'character nil nil)
  63. (defsysfun 'CHAR-NAME "Lchar_name" '(character) 'symbol nil nil)
  64. (defsysfun 'NAME-CHAR "Lname_char" '(symbol) 'character nil nil)
  65. (defsysfun 'CHAR-BIT "Lchar_bit" '(character) 'fixnum nil nil)
  66. (defsysfun 'SET-CHAR-BIT "Lset_char_bit" '(character t fixnum) 'character nil nil)
  67. (defsysfun 'SI:SPECIALP "siLspecialp" nil nil nil t)
  68. (defsysfun 'ERROR "Lerror" nil nil nil nil)
  69. (defsysfun 'CERROR "Lcerror" nil nil nil nil)
  70. (defsysfun 'APPLY "Lapply" nil nil nil nil)
  71. (defsysfun 'FUNCALL "Lfuncall" nil nil nil nil)
  72. (defsysfun 'EVAL "Leval" nil nil nil nil)
  73. (defsysfun 'EVALHOOK "Levalhook" nil nil nil nil)
  74. (defsysfun 'APPLYHOOK "Lapplyhook" nil nil nil nil)
  75. (defsysfun 'CONSTANTP "Lconstantp" nil nil nil t)
  76. (defsysfun 'MAKE-SYNONYM-STREAM "Lmake_synonym_stream" nil nil nil nil)
  77. (defsysfun 'MAKE-BROADCAST-STREAM "Lmake_broadcast_stream" nil nil nil nil)
  78. (defsysfun 'MAKE-TWO-WAY-STREAM "Lmake_two_way_stream" nil nil nil nil)
  79. (defsysfun 'MAKE-ECHO-STREAM "Lmake_echo_stream" nil nil nil nil)
  80. (defsysfun 'SI:OUTPUT-STREAM-STRING "siLoutput_stream_string" nil nil nil nil)
  81. (defsysfun 'STREAMP "Lstreamp" nil nil nil t)
  82. (defsysfun 'INPUT-STREAM-P "Linput_stream_p" nil nil nil t)
  83. (defsysfun 'OUTPUT-STREAM-P "Loutput_stream_p" nil nil nil t)
  84. (defsysfun 'STREAM-ELEMENT-TYPE "Lstream_element_type" nil nil nil nil)
  85. (defsysfun 'CLOSE "Lclose" nil nil nil nil)
  86. (defsysfun 'OPEN "Lopen" nil nil nil nil)
  87. (defsysfun 'FILE-POSITION "Lfile_position" nil nil nil nil)
  88. (defsysfun 'FILE-LENGTH "Lfile_length" nil nil nil nil)
  89. (defsysfun 'LOAD "Lload" nil nil nil nil)
  90. (defsysfun 'SI:COPY-STREAM "siLcopy_stream" nil nil nil nil)
  91. (defsysfun 'TRUENAME "Ltruename" nil nil nil nil)
  92. (defsysfun 'USER-HOMEDIR-PATHNAME "Luser_homedir_pathname" nil nil nil nil)
  93. (defsysfun 'RENAME-FILE "Lrename_file" nil nil nil nil)
  94. (defsysfun 'DELETE-FILE "Ldelete_file" nil nil nil nil)
  95. (defsysfun 'PROBE-FILE "Lprobe_file" nil nil nil nil)
  96. (defsysfun 'FILE-WRITE-DATE "Lfile_write_date" nil nil nil nil)
  97. (defsysfun 'FILE-AUTHOR "Lfile_author" nil nil nil nil)
  98. (defsysfun 'DIRECTORY "Ldirectory" nil nil nil nil)
  99. (defsysfun 'FORMAT "Lformat" '(t string) nil nil nil)
  100. (defsysfun 'MAKE-HASH-TABLE "Lmake_hash_table" nil nil nil nil)
  101. (defsysfun 'HASH-TABLE-P "Lhash_table_p" nil nil nil t)
  102. (defsysfun 'GETHASH "Lgethash" nil nil nil nil)
  103. (defsysfun 'REMHASH "Lremhash" nil nil nil nil)
  104. (defsysfun 'MAPHASH "Lmaphash" nil nil nil nil)
  105. (defsysfun 'CLRHASH "Lclrhash" nil nil nil nil)
  106. (defsysfun 'HASH-TABLE-COUNT "Lhash_table_count" nil nil nil nil)
  107. (defsysfun 'SXHASH "Lsxhash" nil nil nil nil)
  108. (defsysfun 'SI:HASH-SET "siLhash_set" nil nil nil nil)
  109. (defsysfun 'CAR "Lcar" nil nil nil nil)
  110. (defsysfun 'CDR "Lcdr" nil nil nil nil)
  111. (defsysfun 'CAAR "Lcaar" nil nil nil nil)
  112. (defsysfun 'CADR "Lcadr" nil nil nil nil)
  113. (defsysfun 'CDAR "Lcdar" nil nil nil nil)
  114. (defsysfun 'CDDR "Lcddr" nil nil nil nil)
  115. (defsysfun 'CAAAR "Lcaaar" nil nil nil nil)
  116. (defsysfun 'CAADR "Lcaadr" nil nil nil nil)
  117. (defsysfun 'CADAR "Lcadar" nil nil nil nil)
  118. (defsysfun 'CADDR "Lcaddr" nil nil nil nil)
  119. (defsysfun 'CDAAR "Lcdaar" nil nil nil nil)
  120. (defsysfun 'CDADR "Lcdadr" nil nil nil nil)
  121. (defsysfun 'CDDAR "Lcddar" nil nil nil nil)
  122. (defsysfun 'CDDDR "Lcdddr" nil nil nil nil)
  123. (defsysfun 'CAAAAR "Lcaaaar" nil nil nil nil)
  124. (defsysfun 'CAAADR "Lcaaadr" nil nil nil nil)
  125. (defsysfun 'CAADAR "Lcaadar" nil nil nil nil)
  126. (defsysfun 'CAADDR "Lcaaddr" nil nil nil nil)
  127. (defsysfun 'CADAAR "Lcadaar" nil nil nil nil)
  128. (defsysfun 'CADADR "Lcadadr" nil nil nil nil)
  129. (defsysfun 'CADDAR "Lcaddar" nil nil nil nil)
  130. (defsysfun 'CADDDR "Lcadddr" nil nil nil nil)
  131. (defsysfun 'CDAAAR "Lcdaaar" nil nil nil nil)
  132. (defsysfun 'CDAADR "Lcdaadr" nil nil nil nil)
  133. (defsysfun 'CDADAR "Lcdadar" nil nil nil nil)
  134. (defsysfun 'CDADDR "Lcdaddr" nil nil nil nil)
  135. (defsysfun 'CDDAAR "Lcddaar" nil nil nil nil)
  136. (defsysfun 'CDDADR "Lcddadr" nil nil nil nil)
  137. (defsysfun 'CDDDAR "Lcdddar" nil nil nil nil)
  138. (defsysfun 'CDDDDR "Lcddddr" nil nil nil nil)
  139. (defsysfun 'CONS "Lcons" nil nil nil nil)
  140. (defsysfun 'TREE-EQUAL "Ltree_equal" nil nil nil t)
  141. (defsysfun 'ENDP "Lendp" nil nil nil t)
  142. (defsysfun 'LIST-LENGTH "Llist_length" nil nil nil nil)
  143. (defsysfun 'NTH "Lnth" '(fixnum t) nil nil nil)
  144. (defsysfun 'FIRST "Lcar" nil nil nil nil)
  145. (defsysfun 'REST "Lcdr" nil nil nil nil)
  146. (defsysfun 'NTHCDR "Lnthcdr" '(fixnum t) nil nil nil)
  147. (defsysfun 'LAST "Llast" nil nil nil nil)
  148. (defsysfun 'LIST "Llist" nil nil nil nil)
  149. (defsysfun 'LIST* "LlistA" nil nil nil nil)
  150. (defsysfun 'MAKE-LIST "Lmake_list" '(fixnum) nil nil nil)
  151. (defsysfun 'APPEND "Lappend" nil nil nil nil)
  152. (defsysfun 'COPY-LIST "Lcopy_list" nil nil nil nil)
  153. (defsysfun 'COPY-ALIST "Lcopy_alist" nil nil nil nil)
  154. (defsysfun 'COPY-TREE "Lcopy_tree" nil nil nil nil)
  155. (defsysfun 'REVAPPEND "Lrevappend" nil nil nil nil)
  156. (defsysfun 'NCONC "Lnconc" nil nil nil nil)
  157. (defsysfun 'NRECONC "Lreconc" nil nil nil nil)
  158. (defsysfun 'BUTLAST "Lbutlast" nil nil nil nil)
  159. (defsysfun 'NBUTLAST "Lnbutlast" nil nil nil nil)
  160. (defsysfun 'LDIFF "Lldiff" nil nil nil nil)
  161. (defsysfun 'RPLACA "Lrplaca" '(cons) nil nil nil)
  162. (defsysfun 'RPLACD "Lrplacd" '(cons) nil nil nil)
  163. (defsysfun 'SUBST "Lsubst" nil nil nil nil)
  164. (defsysfun 'SUBST-IF "Lsubst_if" nil nil nil nil)
  165. (defsysfun 'SUBST-IF-NOT "Lsubst_if_not" nil nil nil nil)
  166. (defsysfun 'NSUBST "Lnsubst" nil nil nil nil)
  167. (defsysfun 'NSUBST-IF "Lnsubst_if" nil nil nil nil)
  168. (defsysfun 'NSUBST-IF-NOT "Lnsubst_if_not" nil nil nil nil)
  169. (defsysfun 'SUBLIS "Lsublis" nil nil nil nil)
  170. (defsysfun 'NSUBLIS "Lnsublis" nil nil nil nil)
  171. (defsysfun 'MEMBER "Lmember" nil nil nil nil)
  172. (defsysfun 'MEMBER-IF "Lmember_if" nil nil nil nil)
  173. (defsysfun 'MEMBER-IF-NOT "Lmember_if_not" nil nil nil nil)
  174. (defsysfun 'TAILP "Ltailp" nil nil nil t)
  175. (defsysfun 'ADJOIN "Ladjoin" nil nil nil nil)
  176. (defsysfun 'ACONS "Lacons" nil nil nil nil)
  177. (defsysfun 'PAIRLIS "Lpairlis" nil nil nil nil)
  178. (defsysfun 'ASSOC "Lassoc" nil nil nil nil)
  179. (defsysfun 'ASSOC-IF "Lassoc_if" nil nil nil nil)
  180. (defsysfun 'ASSOC-IF-NOT "Lassoc_if_not" nil nil nil nil)
  181. (defsysfun 'RASSOC "Lrassoc" nil nil nil nil)
  182. (defsysfun 'RASSOC-IF "Lrassoc_if" nil nil nil nil)
  183. (defsysfun 'RASSOC-IF-NOT "Lrassoc_if_not" nil nil nil nil)
  184. (defsysfun 'MACROEXPAND "Lmacroexpand" nil nil nil nil)
  185. (defsysfun 'MACROEXPAND-1 "Lmacroexpand_1" nil nil nil nil)
  186. (defsysfun 'BY "Lby" nil nil nil nil)
  187. (defsysfun 'BYE "Lby" nil nil nil nil)
  188. (defsysfun 'IDENTITY "Lidentity" nil nil nil nil)
  189. (defsysfun 'SI:RESET-STACK-LIMITS "siLreset_stack_limits" nil nil nil nil)
  190. (defsysfun 'SI:INIT-SYSTEM "siLinit_system" nil nil nil nil)
  191. (defsysfun 'MAPCAR "Lmapcar" nil nil nil nil)
  192. (defsysfun 'MAPLIST "Lmaplist" nil nil nil nil)
  193. (defsysfun 'MAPC "Lmapc" nil nil nil nil)
  194. (defsysfun 'MAPL "Lmapl" nil nil nil nil)
  195. (defsysfun 'MAPCAN "Lmapcan" nil nil nil nil)
  196. (defsysfun 'MAPCON "Lmapcon" nil nil nil nil)
  197. (defsysfun 'VALUES "Lvalues" nil nil nil nil)
  198. (defsysfun 'VALUES-LIST "Lvalues_list" nil nil nil nil)
  199. (defsysfun '+ "Lplus" nil nil nil nil)
  200. (defsysfun '- "Lminus" nil nil nil nil)
  201. (defsysfun '* "Ltimes" nil nil nil nil)
  202. (defsysfun '/ "Ldivide" nil nil nil nil)
  203. (defsysfun '1+ "Lone_plus" nil nil nil nil)
  204. (defsysfun '1- "Lone_minus" nil nil nil nil)
  205. (defsysfun 'CONJUGATE "Lconjugate" nil nil nil nil)
  206. (defsysfun 'GCD "Lgcd" nil nil nil nil)
  207. (defsysfun 'LCM "Llcm" nil nil nil nil)
  208. (defsysfun 'FLOAT "Lfloat" nil nil nil nil)
  209. (defsysfun 'NUMERATOR "Lnumerator" nil nil nil nil)
  210. (defsysfun 'DENOMINATOR "Ldenominator" nil nil nil nil)
  211. (defsysfun 'FLOOR "Lfloor" nil nil nil nil)
  212. (defsysfun 'CEILING "Lceiling" nil nil nil nil)
  213. (defsysfun 'TRUNCATE "Ltruncate" nil nil nil nil)
  214. (defsysfun 'ROUND "Lround" nil nil nil nil)
  215. (defsysfun 'MOD "Lmod" nil nil nil nil)
  216. (defsysfun 'REM "Lrem" nil nil nil nil)
  217. (defsysfun 'DECODE-FLOAT "Ldecode_float" nil nil nil nil)
  218. (defsysfun 'SCALE-FLOAT "Lscale_float" nil nil nil nil)
  219. (defsysfun 'FLOAT-RADIX "Lfloat_radix" nil nil nil nil)
  220. (defsysfun 'FLOAT-SIGN "Lfloat_sign" nil nil nil nil)
  221. (defsysfun 'FLOAT-DIGITS "Lfloat_digits" nil nil nil nil)
  222. (defsysfun 'FLOAT-PRECISION "Lfloat_precision" nil nil nil nil)
  223. (defsysfun 'INTEGER-DECODE-FLOAT "Linteger_decode_float" nil nil nil nil)
  224. (defsysfun 'COMPLEX "Lcomplex" nil nil nil nil)
  225. (defsysfun 'REALPART "Lrealpart" nil nil nil nil)
  226. (defsysfun 'IMAGPART "Limagpart" nil nil nil nil)
  227. (defsysfun '= "Lall_the_same" nil nil nil t)
  228. (defsysfun '/= "Lall_different" nil nil nil t)
  229. (defsysfun '< "Lmonotonically_increasing" nil nil nil t)
  230. (defsysfun '> "Lmonotonically_decreasing" nil nil nil t)
  231. (defsysfun '<= "Lmonotonically_nondecreasing" nil nil nil t)
  232. (defsysfun '>= "Lmonotonically_nonincreasing" nil nil nil t)
  233. (defsysfun 'MAX "Lmax" nil nil nil nil)
  234. (defsysfun 'MIN "Lmin" nil nil nil nil)
  235. (defsysfun 'LOGIOR "Llogior" nil nil nil nil)
  236. (defsysfun 'LOGXOR "Llogxor" nil nil nil nil)
  237. (defsysfun 'LOGAND "Llogand" nil nil nil nil)
  238. (defsysfun 'LOGEQV "Llogeqv" nil nil nil nil)
  239. (defsysfun 'BOOLE "Lboole" nil nil nil nil)
  240. (defsysfun 'LOGBITP "Llogbitp" nil nil nil t)
  241. (defsysfun 'ASH "Lash" nil nil nil nil)
  242. (defsysfun 'LOGCOUNT "Llogcount" nil nil nil nil)
  243. (defsysfun 'INTEGER-LENGTH "Linteger_length" nil 'fixnum nil nil)
  244. (defsysfun 'ZEROP "Lzerop" nil nil nil t)
  245. (defsysfun 'PLUSP "Lplusp" nil nil nil t)
  246. (defsysfun 'MINUSP "Lminusp" nil nil nil t)
  247. (defsysfun 'ODDP "Loddp" nil nil nil t)
  248. (defsysfun 'EVENP "Levenp" nil nil nil t)
  249. (defsysfun 'RANDOM "Lrandom" nil nil nil nil)
  250. (defsysfun 'MAKE-RANDOM-STATE "Lmake_random_state" nil nil nil nil)
  251. (defsysfun 'RANDOM-STATE-P "Lrandom_state_p" nil nil nil t)
  252. (defsysfun 'EXP "Lexp" nil nil nil nil)
  253. (defsysfun 'EXPT "Lexpt" nil nil nil nil)
  254. (defsysfun 'LOG "Llog" nil nil nil nil)
  255. (defsysfun 'SQRT "Lsqrt" nil nil nil nil)
  256. (defsysfun 'SIN "Lsin" nil nil nil nil)
  257. (defsysfun 'COS "Lcos" nil nil nil nil)
  258. (defsysfun 'TAN "Ltan" nil nil nil nil)
  259. (defsysfun 'ATAN "Latan" nil nil nil nil)
  260. (defsysfun 'MAKE-PACKAGE "Lmake_package" nil nil nil nil)
  261. (defsysfun 'IN-PACKAGE "Lin_package" nil nil nil nil)
  262. (defsysfun 'FIND-PACKAGE "Lfind_package" nil nil nil nil)
  263. (defsysfun 'PACKAGE-NAME "Lpackage_name" nil nil nil nil)
  264. (defsysfun 'PACKAGE-NICKNAMES "Lpackage_nicknames" nil nil nil nil)
  265. (defsysfun 'RENAME-PACKAGE "Lrename_package" nil nil nil nil)
  266. (defsysfun 'PACKAGE-USE-LIST "Lpackage_use_list" nil nil nil nil)
  267. (defsysfun 'PACKAGE-USED-BY-LIST "Lpackage_used_by_list" nil nil nil nil)
  268. (defsysfun 'LIST-ALL-PACKAGES "Llist_all_packages" nil nil nil nil)
  269. (defsysfun 'INTERN "Lintern" '(string t) 'symbol nil nil)
  270. (defsysfun 'FIND-SYMBOL "Lfind_symbol" '(string t) 'symbol nil nil)
  271. (defsysfun 'UNINTERN "Lunintern" '(symbol t) nil nil nil)
  272. (defsysfun 'EXPORT "Lexport" nil nil nil nil)
  273. (defsysfun 'UNEXPORT "Lunexport" nil nil nil nil)
  274. (defsysfun 'IMPORT "Limport" nil nil nil nil)
  275. (defsysfun 'SHADOWING-IMPORT "Lshadowing_import" nil nil nil nil)
  276. (defsysfun 'SHADOW "Lshadow" nil nil nil nil)
  277. (defsysfun 'USE-PACKAGE "Luse_package" nil nil nil nil)
  278. (defsysfun 'UNUSE-PACKAGE "Lunuse_package" nil nil nil nil)
  279. (defsysfun 'SI:PACKAGE-INTERNAL "siLpackage_internal" nil nil nil nil)
  280. (defsysfun 'SI:PACKAGE-EXTERNAL "siLpackage_external" nil nil nil nil)
  281. (defsysfun 'PATHNAME "Lpathname" nil nil nil nil)
  282. (defsysfun 'PARSE-NAMESTRING "Lparse_namestring" nil nil nil nil)
  283. (defsysfun 'MERGE-PATHNAMES "Lmerge_pathnames" nil nil nil nil)
  284. (defsysfun 'MAKE-PATHNAME "Lmake_pathname" nil nil nil nil)
  285. (defsysfun 'PATHNAMEP "Lpathnamep" nil nil nil t)
  286. (defsysfun 'PATHNAME-HOST "Lpathname_host" nil nil nil nil)
  287. (defsysfun 'PATHNAME-DEVICE "Lpathname_device" nil nil nil nil)
  288. (defsysfun 'PATHNAME-DIRECTORY "Lpathname_directory" nil nil nil nil)
  289. (defsysfun 'PATHNAME-NAME "Lpathname_name" nil nil nil nil)
  290. (defsysfun 'PATHNAME-TYPE "Lpathname_type" nil nil nil nil)
  291. (defsysfun 'PATHNAME-VERSION "Lpathname_version" nil nil nil nil)
  292. (defsysfun 'NAMESTRING "Lnamestring" nil 'string nil nil)
  293. (defsysfun 'FILE-NAMESTRING "Lfile_namestring" nil 'string nil nil)
  294. (defsysfun 'DIRECTORY-NAMESTRING "Ldirectory_namestring" nil 'string nil nil)
  295. (defsysfun 'HOST-NAMESTRING "Lhost_namestring" nil 'string nil nil)
  296. (defsysfun 'ENOUGH-NAMESTRING "Lenough_namestring" nil 'string nil nil)
  297. (defsysfun 'NULL "Lnull" nil nil nil t)
  298. (defsysfun 'SYMBOLP "Lsymbolp" nil nil nil t)
  299. (defsysfun 'ATOM "Latom" nil nil nil t)
  300. (defsysfun 'CONSP "Lconsp" nil nil nil t)
  301. (defsysfun 'LISTP "Llistp" nil nil nil t)
  302. (defsysfun 'NUMBERP "Lnumberp" nil nil nil t)
  303. (defsysfun 'INTEGERP "Lintegerp" nil nil nil t)
  304. (defsysfun 'FLOATP "Lfloatp" nil nil nil t)
  305. (defsysfun 'COMPLEXP "Lcomplexp" nil nil nil t)
  306. (defsysfun 'CHARACTERP "Lcharacterp" nil nil nil t)
  307. (defsysfun 'STRINGP "Lstringp" nil nil nil t)
  308. (defsysfun 'BIT-VECTOR-P "Lbit_vector_p" nil nil nil t)
  309. (defsysfun 'VECTORP "Lvectorp" nil nil nil t)
  310. (defsysfun 'SIMPLE-STRING-P "Lsimple_string_p" nil nil nil t)
  311. (defsysfun 'SIMPLE-BIT-VECTOR-P "Lsimple_bit_vector_p" nil nil nil t)
  312. (defsysfun 'SIMPLE-VECTOR-P "Lsimple_vector_p" nil nil nil t)
  313. (defsysfun 'ARRAYP "Larrayp" nil nil nil t)
  314. (defsysfun 'PACKAGEP "Lpackagep" nil nil nil t)
  315. (defsysfun 'FUNCTIONP "Lfunctionp" nil nil nil t)
  316. (defsysfun 'COMPILED-FUNCTION-P "Lcompiled_function_p" nil nil nil t)
  317. (defsysfun 'COMMONP "Lcommonp" nil nil nil t)
  318. (defsysfun 'EQ "Leq" nil nil nil t)
  319. (defsysfun 'EQL "Leql" nil nil nil t)
  320. (defsysfun 'EQUAL "Lequal" nil nil nil t)
  321. (defsysfun 'EQUALP "Lequalp" nil nil nil t)
  322. (defsysfun 'NOT "Lnull" nil nil nil t)
  323. (defsysfun 'WRITE "Lwrite" nil nil nil nil)
  324. (defsysfun 'PRIN1 "Lprin1" nil nil nil nil)
  325. (defsysfun 'PRINT "Lprint" nil nil nil nil)
  326. (defsysfun 'PPRINT "Lpprint" nil nil nil nil)
  327. (defsysfun 'PRINC "Lprinc" nil nil nil nil)
  328. (defsysfun 'WRITE-CHAR "Lwrite_char" nil nil nil nil)
  329. (defsysfun 'WRITE-STRING "Lwrite_string" nil nil nil nil)
  330. (defsysfun 'WRITE-LINE "Lwrite_line" nil nil nil nil)
  331. (defsysfun 'TERPRI "Lterpri" nil nil nil nil)
  332. (defsysfun 'FRESH-LINE "Lfresh_line" nil nil nil nil)
  333. (defsysfun 'FINISH-OUTPUT "Lfinish_output" nil nil nil nil)
  334. (defsysfun 'FORCE-OUTPUT "Lforce_output" nil nil nil nil)
  335. (defsysfun 'CLEAR-OUTPUT "Lclear_output" nil nil nil nil)
  336. (defsysfun 'WRITE-BYTE "Lwrite_byte" '(fixnum stream) nil nil nil)
  337. (defsysfun 'READ "Lread" nil nil nil nil)
  338. (defsysfun 'READ-DELIMITED-LIST "Lread_delimited_list" nil nil nil nil)
  339. (defsysfun 'READ-LINE "Lread_line" nil nil nil nil)
  340. (defsysfun 'READ-CHAR "Lread_char" nil nil nil nil)
  341. (defsysfun 'UNREAD-CHAR "Lunread_char" nil nil nil nil)
  342. (defsysfun 'PEEK-CHAR "Lpeek_char" nil nil nil nil)
  343. (defsysfun 'LISTEN "Llisten" nil nil nil nil)
  344. (defsysfun 'READ-CHAR-NO-HANG "Lread_char_no_hang" nil nil nil nil)
  345. (defsysfun 'CLEAR-INPUT "Lclear_input" nil nil nil nil)
  346. (defsysfun 'PARSE-INTEGER "Lparse_integer" nil nil nil nil)
  347. (defsysfun 'READ-BYTE "Lread_byte" nil nil nil nil)
  348. (defsysfun 'COPY-READTABLE "Lcopy_readtable" nil nil nil nil)
  349. (defsysfun 'READTABLEP "Lreadtablep" nil nil nil t)
  350. (defsysfun 'SET-SYNTAX-FROM-CHAR "Lset_syntax_from_char" nil nil nil nil)
  351. (defsysfun 'SET-MACRO-CHARACTER "Lset_macro_character" nil nil nil nil)
  352. (defsysfun 'GET-MACRO-CHARACTER "Lget_macro_character" nil nil nil nil)
  353. (defsysfun 'SI:STRING-TO-OBJECT "siLstring_to_object" nil nil nil nil)
  354. (defsysfun 'SYMBOL-FUNCTION "Lsymbol_function" '(symbol) nil nil nil)
  355. (defsysfun 'FBOUNDP "Lfboundp" '(symbol) nil nil t)
  356. (defsysfun 'SYMBOL-VALUE "Lsymbol_value" '(symbol) nil nil nil)
  357. (defsysfun 'BOUNDP "Lboundp" '(symbol) nil nil t)
  358. (defsysfun 'MACRO-FUNCTION "Lmacro_function" '(symbol) nil nil nil)
  359. (defsysfun 'SPECIAL-FORM-P "Lspecial_form_p" '(symbol) nil nil t)
  360. (defsysfun 'SAVE "Lsave" nil nil nil nil)
  361. (defsysfun 'ELT "Lelt" '(sequence fixnum) nil nil nil)
  362. (defsysfun 'SI:ELT-SET "siLelt_set" '(sequence fixnum t) nil nil nil)
  363. (defsysfun 'SUBSEQ "Lsubseq" '(sequence fixnum fixnum) 'sequence nil nil)
  364. (defsysfun 'COPY-SEQ "Lcopy_seq" '(sequence) 'sequence nil nil)
  365. (defsysfun 'LENGTH "Llength" '(sequence) 'fixnum t nil)
  366. (defsysfun 'REVERSE "Lreverse" '(sequence) 'sequence nil nil)
  367. (defsysfun 'NREVERSE "Lnreverse" '(sequence) 'sequence nil nil)
  368. (defsysfun 'CHAR "Lchar" '(string fixnum) 'character nil nil)
  369. (defsysfun 'SI:CHAR-SET "siLchar_set" '(string fixnum character) 'character nil nil)
  370. (defsysfun 'STRING= "Lstring_eq" '(string string) nil nil t)
  371. (defsysfun 'STRING-EQUAL "Lstring_equal" '(string string) nil nil t)
  372. (defsysfun 'STRING< "Lstring_l" '(string string) nil nil t)
  373. (defsysfun 'STRING> "Lstring_g" '(string string) nil nil t)
  374. (defsysfun 'STRING<= "Lstring_le" '(string string) nil nil t)
  375. (defsysfun 'STRING>= "Lstring_ge" '(string string) nil nil t)
  376. (defsysfun 'STRING/= "Lstring_neq" '(string string) nil nil t)
  377. (defsysfun 'STRING-LESSP "Lstring_lessp" '(string string) nil nil t)
  378. (defsysfun 'STRING-GREATERP "Lstring_greaterp" '(string string) nil nil t)
  379. (defsysfun 'STRING-NOT-LESSP "Lstring_not_lessp" '(string string) nil nil t)
  380. (defsysfun 'STRING-NOT-GREATERP "Lstring_not_greaterp" '(string string) nil nil t)
  381. (defsysfun 'STRING-NOT-EQUAL "Lstring_not_equal" '(string string) nil nil t)
  382. (defsysfun 'MAKE-STRING "Lmake_string" '(fixnum) 'string nil nil)
  383. (defsysfun 'STRING-TRIM "Lstring_trim" '(t string) 'string nil nil)
  384. (defsysfun 'STRING-LEFT-TRIM "Lstring_left_trim" '(t string) 'string nil nil)
  385. (defsysfun 'STRING-RIGHT-TRIM "Lstring_right_trim" '(t string) 'string nil nil)
  386. (defsysfun 'STRING-UPCASE "Lstring_upcase" '(string) 'string nil nil)
  387. (defsysfun 'STRING-DOWNCASE "Lstring_downcase" '(string) 'string nil nil)
  388. (defsysfun 'STRING-CAPITALIZE "Lstring_capitalize" '(string) 'string nil nil)
  389. (defsysfun 'NSTRING-UPCASE "Lnstring_upcase" '(string) 'string nil nil)
  390. (defsysfun 'NSTRING-DOWNCASE "Lnstring_downcase" '(string) 'string nil nil)
  391. (defsysfun 'NSTRING-CAPITALIZE "Lnstring_capitalize" '(string) 'string nil nil)
  392. (defsysfun 'STRING "Lstring" nil 'string nil nil)
  393. (defsysfun 'SI:MAKE-STRUCTURE "siLmake_structure" nil nil nil nil)
  394. (defsysfun 'SI:STRUCTURE-NAME "siLstructure_name" nil 'symbol nil nil)
  395. (defsysfun 'SI:STRUCTURE-REF "siLstructure_ref" '(t t fixnum) nil nil nil)
  396. (defsysfun 'SI:STRUCTURE-SET "siLstructure_set" '(t t fixnum t) nil nil nil)
  397. (defsysfun 'SI:STRUCTUREP "siLstructurep" nil nil nil t)
  398. (defsysfun 'GET "Lget" '(symbol t t) nil nil nil)
  399. (defsysfun 'REMPROP "Lremprop" '(symbol t) nil nil nil)
  400. (defsysfun 'SYMBOL-PLIST "Lsymbol_plist" '(symbol) nil nil nil)
  401. (defsysfun 'GETF "Lgetf" nil nil nil nil)
  402. (defsysfun 'GET-PROPERTIES "Lget_properties" nil nil nil nil)
  403. (defsysfun 'SYMBOL-NAME "Lsymbol_name" '(symbol) 'string nil nil)
  404. (defsysfun 'MAKE-SYMBOL "Lmake_symbol" '(string) 'symbol nil nil)
  405. (defsysfun 'COPY-SYMBOL "Lcopy_symbol" '(symbol) 'symbol nil nil)
  406. (defsysfun 'GENSYM "Lgensym" nil 'symbol nil nil)
  407. (defsysfun 'GENTEMP "Lgentemp" nil 'symbol nil nil)
  408. (defsysfun 'SYMBOL-PACKAGE "Lsymbol_package" '(symbol) nil nil nil)
  409. (defsysfun 'KEYWORDP "Lkeywordp" nil nil nil t)
  410. (defsysfun 'SI:PUT-F "siLput_f" nil nil nil nil)
  411. (defsysfun 'SI:REM-F "siLrem_f" nil nil nil nil)
  412. (defsysfun 'SI:SET-SYMBOL-PLIST "siLset_symbol_plist" '(symbol t) nil nil nil)
  413. (defsysfun 'SI:PUTPROP "siLputprop" '(symbol t t) nil nil nil)
  414. (defsysfun 'SLEEP "Lsleep" '(fixnum) nil nil nil)
  415. (defsysfun 'GET-INTERNAL-RUN-TIME "Lget_internal_run_time" nil nil nil nil)
  416. (defsysfun 'GET-INTERNAL-REAL-TIME "Lget_internal_real_time" nil nil nil nil)
  417. (defsysfun 'TYPE-OF "Ltype_of" nil nil nil nil)
  418.